home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_007_19xx_-_de_Disk_1_of_2_Side_A.d64 / dir_notebox v1.0 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  89 lines
  1. 100 rem--------------------------------
  2. 110 rem   dir/notebox  freeware 1993
  3. 120 rem--------------------------------
  4. 121 rem hallo freunde! dieses prg darf
  5. 122 rem exklusiv - nur - auf meiner
  6. 123 rem rockford-fd serie erscheinen!
  7. 124 rem--------------------------------
  8. 125 rem status:fd/11.1993  autor:a.l.
  9. 126 rem--------------------------------
  10. 127 rem alex zop, amselweg 1
  11. 128 rem d-85293 reichertshausen a.d.ilm
  12. 129 rem--------------------------------
  13. 130 cs$=chr$ (147):cd$=chr$(17)
  14. 131 poke53281,0:poke53280,0
  15. 132 print cd$cs$"[158][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]"cd$
  16. 140 print "[145][145][158] directory-notebox v1.0 -- auswahlmenue "
  17. 141 print"[145][158][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]"
  18. 150 print "             1[159] - lesen"
  19. 160 print "             2[159] - loeschen"
  20. 170 print "             3[159] - schreiben"
  21. 180 print "             4[159] - beenden"
  22. 181 print"[158][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]"
  23. 182 print"[145][158]     freeware 12/1993  by alex zop"
  24. 183 print"[218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]"
  25. 190 get k$:if k$="" then 190
  26. 200 if val (k$)<1 or val (k$)>4 then run
  27. 210 if k$="4" then 710
  28. 220 on val (k$) goto 250,320,420
  29. 230 :
  30. 240 rem---lesen------------------------
  31. 250 print"[145][159]":gosub 650
  32. 260 for i=1 to 85:get #2,z$:print z$;:next
  33. 270 print :gosub 700
  34. 280 print cd$"[158]----------  weiter mit space  ----------"
  35. 290 get k$:if k$="" then 290
  36. 300 run
  37. 310 rem---loeschen---------------------
  38. 320 print "[159]  soll die note wirklich von der disk"
  39. 321 print"            geloescht werden?"
  40. 322 print"[158]---------------- j / n[158] -----------------"
  41. 330 get k$:if k$="" then 330
  42. 340 if k$<>"j" then run
  43. 350 gosub 650
  44. 360 for i=1 to 85:print#2,chr$ (0);:next
  45. 370 gosub 690
  46. 380 print "[145][145][158]--------- text ist geloescht! ----------"
  47. 390 for i=0 to 2000:next :run
  48. 400 rem---schreiben--------------------
  49. 420 print "[145][145][145][145][145][145][145][145][158]los gehts!":print"[159]     < fin"
  50. 421 print"[145][145][145][145][145][145][145]"
  51. 430 open 1,0:n=1:t$=""
  52. 440 get #1,k$:if k$="" then 440
  53. 450 if k$=chr$ (13) then 510
  54. 460 print k$;
  55. 470 if k$=chr$ (20) then gosub 560:goto 440
  56. 480 gosub 590
  57. 490 t$=t$+k$:if n>=85 then 510
  58. 500 n=n+1:goto 440
  59. 510 close 1:print cd$cd$
  60. 520 input"[158]---------- ist der text o.k [159](j/n)[158]---";g$
  61. 522 if g$="j"then 540
  62. 523 if g$="n"then 130
  63. 524 if g$<>"" then print"[145][145]":goto520
  64. 540 gosub 650:print#2,t$;:gosub 690:run
  65. 550 rem---'delete'---------------------
  66. 560 l=len (t$)-1:t$=left$ (t$,l):n=n-1
  67. 570 return
  68. 580 rem---'zeichenzaehler'-------------
  69. 590 s=peek (211):z=peek (214)
  70. 600 if n<>1 and s=0 then s=s+1
  71. 610 poke 211,s:poke 214,z:sys 58640
  72. 620 return
  73. 630 rem---sektor 0 in puffer schreiben-
  74. 640 rem---und pufferpointer setzen-----
  75. 650 open 15,8,15,"i":open 2,8,2,"#"
  76. 660 print#15,"u1 2 0 18 0"
  77. 670 print#15,"b-p 2 171":return
  78. 680 rem---auf disk zurueckschreiben----
  79. 690 print#15,"u2 2 0 18 0"
  80. 700 close 2:close 15:return
  81. 710 input"[159] willst du wirklich aufhoeren[150] (j/n)[159]";p$
  82. 711 if p$="n" then 130
  83. 712 if p$="j" then 730
  84. 713 if p$<>"" then print"[145][145][145][145][145]":goto 710
  85. 730 print"[145][145][145][145][145][145][145]servus, du oida schlawina!!!!"
  86. 740 for h=1 to 7000: next h
  87. 745 poke53280,6 :poke 53281,16
  88. 750 print"[147]"
  89.